VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form SetColorDlg 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "采集颜色设置"
   ClientHeight    =   3465
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   4665
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3465
   ScaleWidth      =   4665
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.Slider Slider5 
      Height          =   255
      Left            =   960
      TabIndex        =   9
      Top             =   2880
      Width           =   2895
      _ExtentX        =   5106
      _ExtentY        =   450
      _Version        =   393216
      Max             =   255
      TickFrequency   =   10
   End
   Begin MSComctlLib.Slider Slider4 
      Height          =   255
      Left            =   960
      TabIndex        =   7
      Top             =   2280
      Width           =   2895
      _ExtentX        =   5106
      _ExtentY        =   450
      _Version        =   393216
      Max             =   255
      TickFrequency   =   10
   End
   Begin MSComctlLib.Slider Slider3 
      Height          =   255
      Left            =   960
      TabIndex        =   6
      Top             =   1680
      Width           =   2895
      _ExtentX        =   5106
      _ExtentY        =   450
      _Version        =   393216
      Max             =   255
      TickFrequency   =   10
   End
   Begin MSComctlLib.Slider Slider2 
      Height          =   255
      Left            =   960
      TabIndex        =   5
      Top             =   1080
      Width           =   2895
      _ExtentX        =   5106
      _ExtentY        =   450
      _Version        =   393216
      Max             =   255
      TickFrequency   =   10
   End
   Begin MSComctlLib.Slider Slider1 
      Height          =   255
      Left            =   960
      TabIndex        =   4
      Top             =   480
      Width           =   2895
      _ExtentX        =   5106
      _ExtentY        =   450
      _Version        =   393216
      Max             =   255
      TickFrequency   =   10
   End
   Begin VB.Label Label1 
      Caption         =   "色    调："
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   2880
      Width           =   855
   End
   Begin VB.Label Label7 
      Caption         =   "色    度："
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label Label5 
      Caption         =   "饱和度："
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   1680
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "对比度："
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   1080
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "亮    度："
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   735
   End
End
Attribute VB_Name = "SetColorDlg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim res As Boolean
Dim S1 As Long
Dim S2 As Long
Dim S3 As Long
Dim S4 As Long
Dim S5 As Long

Private Sub Form_Initialize()
    S1 = 128
    S2 = 128
    S3 = 0
    S4 = 82
    S5 = 82
End Sub

Private Sub Form_Load()
    Slider1.Value = S1
    Slider2.Value = S2
    Slider3.Value = S3
    Slider4.Value = S4
    Slider5.Value = S5
End Sub
Private Sub Slider1_Change()
    res = Form1.MVDEVICE1.SetVideoColor(0, 0, Slider1.Value)
    S1 = Slider1.Value
End Sub

Private Sub Slider2_Change()
    res = Form1.MVDEVICE1.SetVideoColor(0, 4, Slider2.Value)
    S2 = Slider2.Value
End Sub

Private Sub Slider3_Change()
    res = Form1.MVDEVICE1.SetVideoColor(0, 3, Slider3.Value)
    S3 = Slider3.Value
End Sub

Private Sub Slider4_Change()
    res = Form1.MVDEVICE1.SetVideoColor(0, 1, Slider4.Value)
    S4 = Slider4.Value
End Sub

Private Sub Slider5_Change()
    res = Form1.MVDEVICE1.SetVideoColor(0, 2, Slider5.Value)
    S5 = Slider5.Value
End Sub


